home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / HENSA / MATHS / PLPLOT / PLPLOT.ZIP / src / stubc / strutil.c < prev   
Encoding:
C/C++ Source or Header  |  1996-05-10  |  1.8 KB  |  81 lines
  1. /* ADFS::HardDisc4.$.f.strutil -- translated by f2c (version 19940510).
  2.    You must link the resulting object file with the libraries:
  3.     F:o.f2c_lib C:o.stubs
  4. */
  5.  
  6. #include "f2c.h"
  7.  
  8. /* $Id: strutil.f,v 1.2 1994/05/26 19:24:47 mjl Exp $ */
  9. /* $Log: strutil.f,v $ */
  10. /* Revision 1.2  1994/05/26  19:24:47  mjl */
  11. /* Inserted missing CVS Id and Log fields. */
  12.  
  13. /* Subroutine */ int plstrf2c_(char *string1, char *string2, integer *maxlen, 
  14.     ftnlen string1_len, ftnlen string2_len)
  15. {
  16.     /* System generated locals */
  17.     integer i__1, i__2;
  18.  
  19.     /* Local variables */
  20.     static integer i;
  21.     extern integer islen_(char *, ftnlen);
  22.     static integer limit;
  23.  
  24. /* Computing MIN */
  25.     i__1 = islen_(string1, string1_len), i__2 = *maxlen - 1;
  26.     limit = min(i__1,i__2);
  27.     i__1 = limit;
  28.     for (i = 1; i <= i__1; ++i) {
  29.     string2[i - 1] = string1[i - 1];
  30. /* L100: */
  31.     }
  32.     string2[i - 1] = '\0';
  33.     return 0;
  34. } /* plstrf2c_ */
  35.  
  36. /* Subroutine */ int plstrc2f_(char *string1, char *string2, ftnlen 
  37.     string1_len, ftnlen string2_len)
  38. {
  39.     /* Builtin functions */
  40.     /* Subroutine */ int s_copy(char *, char *, ftnlen, ftnlen);
  41.  
  42.     /* Local variables */
  43.     static integer limit;
  44.     static char stringbuf[300];
  45.  
  46.     limit = 1;
  47. L10:
  48.     if ((integer) string1[limit - 1] == 0) {
  49.     goto L20;
  50.     }
  51.     stringbuf[limit - 1] = string1[limit - 1];
  52.     ++limit;
  53.     goto L10;
  54. L20:
  55.     s_copy(string2, stringbuf, string2_len, limit - 1);
  56.     return 0;
  57. } /* plstrc2f_ */
  58.  
  59. integer islen_(char *string, ftnlen string_len)
  60. {
  61.     /* System generated locals */
  62.     integer ret_val;
  63.  
  64.     /* Builtin functions */
  65.     integer i_len(char *, ftnlen);
  66.  
  67.     /* Local variables */
  68.     static integer i;
  69.  
  70.     for (i = i_len(string, string_len); i >= 1; --i) {
  71.     if (string[i - 1] != ' ') {
  72.         ret_val = i;
  73.         return ret_val;
  74.     }
  75. /* L100: */
  76.     }
  77.     ret_val = 1;
  78.     return ret_val;
  79. } /* islen_ */
  80.  
  81.